home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / 08p2.dir / 00001.ls next >
Encoding:
Text File  |  1999-04-27  |  2.0 KB  |  73 lines
  1. on startMovie
  2.   global gKnobSprite, gSendMovie, gCursorReady, gKnobState
  3.   puppetSprite(48, 1)
  4.   gCursorReady = 1
  5.   gKnobSprite = 14
  6.   gSendMovie = "08p2"
  7.   gKnobState = 1
  8.   puppetSprite(gKnobSprite, 1)
  9.   setUpKnob()
  10.   sprite(34).visible = 0
  11.   set the mouseDownScript to EMPTY
  12.   set the mouseUpScript to EMPTY
  13. end
  14.  
  15. on stopMovie
  16.   when timeOut then nothing
  17. end
  18.  
  19. on idle
  20.   global gCursorReady
  21.   if gCursorReady = 1 then
  22.     cursor(200)
  23.     checkCursors()
  24.     set the locH of sprite 48 to the mouseH
  25.     set the locV of sprite 48 to the mouseV
  26.     updateStage()
  27.   end if
  28. end
  29.  
  30. on checkCursors
  31.   global gMagCursor
  32.   gMagCursor = "magCursor"
  33.   set the castNum of sprite 48 to the number of member "curs1"
  34.   if the castNum of sprite 5 and rollOver(5) then
  35.     set the castNum of sprite 48 to the number of member gMagCursor
  36.   end if
  37.   if the castNum of sprite 6 and rollOver(6) then
  38.     set the castNum of sprite 48 to the number of member gMagCursor
  39.   end if
  40.   if the castNum of sprite 7 and rollOver(7) then
  41.     set the castNum of sprite 48 to the number of member gMagCursor
  42.   end if
  43.   if the castNum of sprite 8 and rollOver(8) then
  44.     set the castNum of sprite 48 to the number of member "deMagCursor"
  45.   end if
  46.   if rollOver(34) and (sprite(34).visible = 1) then
  47.     set the castNum of sprite 48 to the number of member "hotCursor"
  48.   end if
  49.   repeat with i = 15 to 17
  50.     if rollOver(i) then
  51.       set the castNum of sprite 48 to the number of member "hotCursor"
  52.     end if
  53.   end repeat
  54.   repeat with i = 20 to 22
  55.     if the castNum of sprite i and rollOver(i) then
  56.       set the castNum of sprite 48 to the number of member "hotCursor"
  57.     end if
  58.   end repeat
  59.   repeat with i = 30 to 32
  60.     if rollOver(i) then
  61.       set the castNum of sprite 48 to the number of member "hotCursor"
  62.     end if
  63.   end repeat
  64.   repeat with i = 40 to 42
  65.     if rollOver(i) then
  66.       set the castNum of sprite 48 to the number of member "hotCursor"
  67.     end if
  68.   end repeat
  69.   if the castNum of sprite 47 and rollOver(47) then
  70.     set the castNum of sprite 48 to the number of member "hotCursor"
  71.   end if
  72. end
  73.